Prochazeni TMainMenu/PopuMenu

Otázka od: mr.guest_delphi@centrum.cz

10. 11. 2004 9:25

Bry den pratele,
potrebuji vedet jak prochazet Meny, tak abych ziskal kazdy TMenuItem. Vytvarim
si svuj vlastni vzhled Menu, vse je OK, ale ne a ne nakreslit obrazek pro
vlastnost CHECKED a ENABLED, proto chci postupne prochazet Items, a kdyz uz
zjistim ze ENABLED tak si zjistimect nebo Canvas(to jeste presne nevim, co tam
najdu) a obrazek na dane misto vlozim. Takze pokud nekdo jiz neco takoveho
resil prosim prosim. Klidne i to s umistovanim obrazku, ja so to upravym do
podoby mne potrebne. Ale hlavne to prochazeni.

PS: Obrazek toho menu jak vypadaa kam co chci zobrazovat je zde http://vyroba-
nabytku.kvalitne.cz/test/menu.jpg

A jeste jedno OT:

NEjaky sikovny uzivatel mi nainstaloval do Windows 5500 Fontu, a zacal bbnout
Word a jine prg. myslite ze to muze byt tim poctem, kdyz co jsem cetl mely by
mit Winy max. 400pisem??? Diky

Odpovedá: Ing. Jan Dvorak

10. 11. 2004 9:35

Prochazet lze takto:
  for i:= 0 to ComponentCount - 1 do if (Components[i] is TMenuItem) then
    begin
    ...
    end;
Jan Dvorak

> potrebuji vedet jak prochazet Meny, tak abych ziskal kazdy
> TMenuItem. Vytvarim si svuj vlastni vzhled Menu, vse je OK,